home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / UTILITY / SHOWCOOK.M < prev    next >
Encoding:
Text File  |  1990-10-12  |  970 b   |  40 lines
  1. MODULE ShowCookies; (*$E MOS *)
  2.  
  3. (*
  4.  * Zeigt die vorhandenen Cookies.
  5.  * Bei einem Atari ST mit TOS < 1.6 sind in der Regel keine Cookies vorhanden!
  6.  * Mehr dazu im Def-Text von 'CookieJar'.
  7.  *
  8.  * Achtung: Stoppt nicht nach der Ausgabe. In der Shell "Taste nach
  9.  * TOS-Programmen" aktivieren!
  10.  *)
  11.  
  12. FROM SYSTEM IMPORT CAST, LONGWORD;
  13. FROM Console IMPORT WriteString, WriteLn;
  14. FROM StrConv IMPORT LHexToStr;
  15. FROM CookieJar IMPORT QueryCookies;
  16.  
  17. VAR shown: BOOLEAN;
  18.  
  19. PROCEDURE show (cookie: LONGWORD; VAR value: LONGWORD): BOOLEAN;
  20.   TYPE String4 = ARRAY [0..3] OF CHAR;
  21.   BEGIN
  22.     IF shown THEN
  23.       WriteLn
  24.     END;
  25.     WriteString ('Cookie: "');
  26.     WriteString (CAST (String4, cookie));
  27.     WriteString ('", value: ');
  28.     WriteString (LHexToStr (value, 9));
  29.     shown:= TRUE;
  30.     RETURN TRUE
  31.   END show;
  32.  
  33. BEGIN
  34.   shown:= FALSE;
  35.   QueryCookies (show);
  36.   IF NOT shown THEN
  37.     WriteString ('No cookies!')
  38.   END;
  39. END ShowCookies.
  40.